Function arrAppend(arr, ele)
    UCount1 = UBound(arr)
    LCount1 = LBound(arr)
    
    ' 增加元素
    ' 先扩大数组范围，再赋值新元素
    ReDim Preserve arr(LCount1 To UCount1 + 1)
    arr(UCount1 + 1) = ele
    
    arrAppend = arr
End Function